home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
tlx_sq15.zip
/
TAGLINE.SLT
< prev
next >
Wrap
Text File
|
1990-11-04
|
2KB
|
50 lines
//-----------------------------------------------------------
// TAGLINE.SLT Send tagline.
//
// Please look at the comments through the whole file, and modify to
// suit your needs, BEFORE you use it. Then recompile with CS TAGLINE.
//-----------------------------------------------------------
str bbs_type[32] // BBS type.
,tagline [80] // Tagline.
,bbstype []="BTYPE" // BBS type.
,version []="PCBVER" // PCB version.
,tag [4] // Tagline.
,global []="GLOBAL" // Name of Global script.
;
//-----------------------------------------------------------
// Script starts here.
//-----------------------------------------------------------
main()
{
int PCBver;
PCBver = 0;
call (global,"R",bbstype,tagline); // Get BBS type.
if (tagline == "PCB" )
{ call (global,"R",version,tagline); // PCBoard:
PCBver = stoi (tagline); // Get version.
}
if (call (global,"R","TAGA",tagline) > 0) // Get tagline a.
{ if (PCBver > 144) prints (tagline);
cputs (tagline);
cputs (" ^M");
}
// Different tagline for PCB and other systems.
if (PCBver) // PCB:
tag = "TAGC"; // Tagline C.
else
tag = "TAGB"; // No, tagline B.
if (call (global,"R",tag,tagline) > 0) // Get tagline b or c.
{ if (PCBver > 144) prints (tagline);
cputs (tagline);
cputs (" ^M");
}
}